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FOR kgl=Lower Limit kgl to Upper Limit kg2 step kg 1 step(usually 0.001 or 0.0005) 
FOR kg3=Upper Limit kg3 to Lower Limit kg3 step -kg3 (usually 0.001 or 
0.0005) 

LET kg2=l-kgl-kg3 

IF kg2>Then Kg2 input lower limit and kg2<Kg2 Upper Limit then 

CALL loop 
END IF 
NEXT kg3 
NEXT kgl 

SUB loop 

LET rhoxg(p5,l)=kgl*sumrhoxg 
LET rhoxg(p5,2)=kg2*sumrhoxg 
LET rhoxg(p5 5 3)=kg3*sumrhoxg 
LET sumdif=0 

FOR i^Energy lower limit to Energy Higher Limit step 1 keV 

LET argguess(p5,i)=murhosofttissue(i)*rhoxg(p5 ? l) 

LET argguess(p5 ? i)=argguess(p5,i)+murhofat(i)*rhoxg(p5,2) 

LET argguess(p5,i)=argguess(p5,i)+murhobonel 00(i)*rhoxg(p5,3) 

LET sumdif=sumdif+abs(argpoly2(p5 5 i)-argguess(p5 5 i)) 
NEXT i 

IF sumdif<sumdifbest(p5) then 
LET sumdifbest(p5)=sumdif 
LET kglbest(p5)-kgl 
LET kg2best(p5)=kg2 
LET kg3best(p5)=kg3 
LET rhoxgbest(p5,l)=rhoxg(p5,l) 
LET rhoxgbest(p5,2)=rhoxg(p5 ? 2) 

LET rhoxgbest^S^^hoxgCpS^) 
END IF 
END SUB 
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